object DMPodmioty: TDMPodmioty
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 403
  Width = 726
  object ADQRodzaje: TADQuery
    FetchOptions.AssignedValues = [evRowsetSize]
    SQL.Strings = (
      'select *, '#39'1'#39' as kolejnosc'
      'from RodzajePodmiotow where chRodzajPodmiotu like '#39'sp'#243#179'ka%'#39
      'union'
      'select *, '#39'2'#39' as kolejnosc'
      'from RodzajePodmiotow where chRodzajPodmiotu not like '#39'sp'#243#179'ka%'#39
      'order by kolejnosc')
    Left = 112
    Top = 9
  end
  object ADQModyfikujKRS: TADQuery
    FetchOptions.AssignedValues = [evRowsetSize]
    SQL.Strings = (
      'update KRS '
      'set idRodzajuPodmiotu = :idr'
      '  , chRegon = :regon'
      '  , dtWydanie = getdate()'
      '  , chNIP = :nip '
      'where inKRS = :krs')
    Left = 32
    Top = 73
    ParamData = <
      item
        Name = 'IDR'
        ParamType = ptInput
      end
      item
        Name = 'REGON'
        ParamType = ptInput
      end
      item
        Name = 'NIP'
        ParamType = ptInput
      end
      item
        Name = 'KRS'
        ParamType = ptInput
      end>
  end
  object ADQIdRodzajPodmiotu: TADQuery
    FetchOptions.AssignedValues = [evRowsetSize]
    SQL.Strings = (
      'select idRodzajuPodmiotu '
      'from RodzajePodmiotow '
      'where chRodzajPodmiotu = :rodzaj')
    Left = 144
    Top = 73
    ParamData = <
      item
        Name = 'RODZAJ'
        ParamType = ptInput
      end>
  end
  object ADQDodajKRS: TADQuery
    SQL.Strings = (
      'insert into KRS(inKRS, idRodzajuPodmiotu, chRegon, dtWydanie) '
      'values (:krs, null, null, getdate())')
    Left = 208
    Top = 4
    ParamData = <
      item
        Name = 'KRS'
        ParamType = ptInput
      end>
  end
  object ADQWydanieKRS: TADQuery
    SQL.Strings = (
      'update KRS '
      'set dtwydanie = getdate() '
      'where inKRS = :krs')
    Left = 32
    Top = 152
    ParamData = <
      item
        Name = 'KRS'
        ParamType = ptInput
      end>
  end
  object ADQUsunKRS: TADQuery
    SQL.Strings = (
      'delete krs where inkrs = :krs')
    Left = 288
    Top = 5
    ParamData = <
      item
        Name = 'KRS'
        ParamType = ptInput
      end>
  end
  object ADQDodaj: TADQuery
    Left = 128
    Top = 152
  end
  object ADQPodmioty: TADQuery
    FetchOptions.AssignedValues = [evRowsetSize]
    Left = 16
    Top = 8
  end
end
